﻿Public Class BECategoriaVideo
  Private _intIdCategoria As Integer
  Private _strCategoria As String

  Sub New()
    _intIdCategoria = 0
    _strCategoria = ""
  End Sub

  Sub New(ByVal strCategoria As String)
    Me.New()
    _strCategoria = strCategoria
  End Sub

  Sub New(ByVal intIdCategoria As Integer, ByVal strCategoria As String)
    _intIdCategoria = intIdCategoria
    _strCategoria = strCategoria
  End Sub

  Public Property IdCategoria() As Integer
    Get
      Return _intIdCategoria
    End Get
    Set(ByVal value As Integer)
      _intIdCategoria = value
    End Set
  End Property

  Public Property Categoria() As String
    Get
      Return _strCategoria
    End Get
    Set(ByVal value As String)
      _strCategoria = value
    End Set
  End Property

End Class
